home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / pc / vikingw.dir / 01644_Script_Crafts < prev    next >
Text File  |  1995-09-12  |  4KB  |  150 lines

  1. global gbeenclicked, gQuest
  2.  
  3. on VCrafts1Rollovers
  4.   set gbeenclicked = 0
  5.   if (not(CheckClickedStatus(gQuest))) then
  6.     if rollover(6) then
  7.       repeat while rollover(6)
  8.         VikingCursor
  9.         set the locH of sprite 48 to 553
  10.         set the locV of sprite 48 to 133
  11.         updatestage
  12.         if (the mousedown) then
  13.           set gbeenclicked = 1
  14.         else
  15.           --the mouse is up
  16.           if gbeenclicked = 1 then
  17.             repeat while gbeenclicked = 1
  18.               AnimateRepeat 6, 265, 2, "SV260401.AIF", 4
  19.             end repeat
  20.           end if
  21.         end if
  22.       end repeat
  23.       set the locH of sprite 48 to 953
  24.       updatestage
  25.     else
  26.       if rollover(7) then
  27.         repeat while rollover(7)
  28.           VikingCursor
  29.           set the locH of sprite 10 to 510
  30.           set the locV of sprite 10 to 361
  31.           updatestage
  32.           if (the mousedown) then
  33.             set gbeenclicked = 1
  34.           else
  35.             --the mouse is up
  36.             if gbeenclicked = 1 then
  37.               repeat while gbeenclicked = 1
  38.                 AnimateRepeat 7, 270, 2, "SV261001.AIF", 4
  39.               end repeat
  40.             end if
  41.           end if
  42.         end repeat
  43.         set the locH of sprite 10 to 910
  44.         updatestage
  45.       else
  46.         if rollover(12) then
  47.           ArrowCursor
  48.           repeat while rollover(12)
  49.             set the locH of sprite 8 to 306
  50.             set the locV of sprite 8 to 336
  51.             updatestage
  52.           end repeat
  53.           set the locH of sprite 8 to 906
  54.           updatestage
  55.         else
  56.           if rollover(11) then
  57.             ArrowCursor
  58.             repeat while rollover(11)
  59.               set the locH of sprite 9 to 230
  60.               set the locV of sprite 9 to 167
  61.               updatestage
  62.             end repeat
  63.             set the locH of sprite 9 to 930
  64.             updatestage
  65.           else
  66.             if rollover(40) then
  67.               HandCursor
  68.             else
  69.               if rollover(41) then
  70.                 HandCursor
  71.               else
  72.                 if rollover(42) then
  73.                   HandCursor
  74.                 else
  75.                   ArrowCursor
  76.                 end if
  77.               end if
  78.             end if
  79.           end if
  80.         end if
  81.       end if
  82.     end if
  83.   end if
  84. end
  85.  
  86. on VCrafts2Rollovers
  87.   set gbeenclicked = 0
  88.   if (not(CheckClickedStatus(gQuest))) then
  89.     if rollover(6) then
  90.       VikingCursor
  91.       repeat while rollover(6)
  92.         puppetsprite 43, true
  93.         set the locH of sprite 43 to 533
  94.         set the locV of sprite 43 to 213
  95.         updatestage
  96.         if the mousedown then
  97.           set gbeenclicked = 1
  98.         else
  99.           --the mouse is up
  100.           if gbeenclicked = 1 then
  101.             repeat while gbeenclicked = 1
  102.               AnimateRepeat2 6, 304, 2, "SV260900.AIF", 3
  103.             end repeat
  104.           end if
  105.         end if
  106.       end repeat
  107.       set the locH of sprite 43 to 933
  108.       updatestage
  109.       puppetsprite 43, false
  110.     else
  111.       if rollover(7) then
  112.         repeat while rollover(7)
  113.           ArrowCursor
  114.           set the locH of sprite 8 to 466
  115.           set the locV of sprite 8 to 361
  116.           updatestage
  117.         end repeat
  118.         set the locH of sprite 8 to 966
  119.         updatestage
  120.       else
  121.         if rollover(9) then
  122.           ArrowCursor
  123.           repeat while rollover(9)
  124.             set the locH of sprite 10 to 328
  125.             set the locV of sprite 10 to 323
  126.             updatestage
  127.           end repeat
  128.           set the locH of sprite 10 to 928
  129.           updatestage
  130.         else
  131.           if rollover(39) then
  132.             HandCursor
  133.           else
  134.             if rollover(41) then
  135.               HandCursor
  136.             else
  137.               if rollover(42) then
  138.                 HandCursor
  139.               else
  140.                 ArrowCursor
  141.               end if
  142.             end if
  143.           end if
  144.         end if
  145.       end if
  146.     end if
  147.   end if
  148. end
  149.  
  150.